Cho dãy số {an} như sau: a1 = 3 ; an=an-1+3n2+5 với n∈N và n > 1.
a) Tính a5 ;a6 ;a7 ;a8
b) Lập quy trình bấm phím liên tục tính an ( ghi rõ sử dụng loại máy tính nào?)
c) Tính a2012;a2013
Trình bày rõ cách giải cách bấm máy fx-570vn luôn nhá
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
a: #incldue <bits/stdc++.h>
using namespace std;
long long i,n,x,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x>0) t=t+x;
}
cout<<t;
return 0;
}
program nhap_tinhtong;
uses crt;
type kmang=array[1..1000] of integer;
var A:kmang;
n:integer;
{---Nhap---}
procedure nhap;
var i:integer;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']= '); readln(A[i]);
end;
end;
{---Tinh-tong---}
function tinh_tong(A:kmang; n:integer):integer;
var t,i:integer;
begin
t:=0;
for i:=1 to n do
t:=t+A[i];
tinh_tong:=t;
end;
{---CT-chinh---}
BEGIN
clrscr;
nhap;
write('Tong cac phan tu la: ',tinh_tong(A,n));
readln;
end.
program nhap_tinhtong;
uses crt;
type kmang=array[1..1000] of integer;
var A:kmang;
n:integer;
{---Nhap---}
procedure nhap;
var i:integer;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']= '); readln(A[i]);
end;
end;
{---Tinh-tong---}
function tinh_tong(A:kmang; n:integer):integer;
var t,i:integer;
begin
t:=0;
for i:=1 to n do
t:=t+A[i];
tinh_tong:=t;
end;
{---CT-chinh---}
BEGIN
clrscr;
nhap;
write('Tong cac phan tu la: ',tinh_tong(A,n));
readln;
end.
Bài 3:
Gán D=0
Nhập : \(D=D+1:A=\frac{\left(3+\sqrt{2}\right)^D-\left(3-\sqrt{2}\right)^D}{2\sqrt{2}}CALC=\)
Ấn = liên tục
\(D=D+1=1=>U_1=1\)
\(D=D+1=2=>u_2=6\)
\(D=D+1=3=>U_3=29\)
\(D=D+1=4=>U_4=132\)
\(D=D+1=5=>U_5=589\)
Gọi công thức truy hồi dạng tổng quát là :
\(U_{n+2}=aU_{n+1}+bU_n+c\)
\(\hept{\begin{cases}U_3=aU_2+bU_1+c\\U_4=aU_3+bU_2+c\\U_5=aU_4+bU_3+c\end{cases}}\)
\(\hept{\begin{cases}6a+b+c=29\\29a+6b+c=132\\132a+29b+c=589\end{cases}}\)
\(\hept{\begin{cases}a=6\\b=-7\\c=0\end{cases}}\)
Vậy \(U_{n+2}=6U_{n+1}-7U_n\)
b) Có Ct truy hồi rời bạn bấm: Alpha A:=6Alpha B-Alpha C:Alpha C=Alpha A-6Alpha B:Alpha B=6Alpha C-Alpha A
==========.......=====
Như vậy là hết quy trình bấm nhé.
Mình chỉ viết chương trình chính thôi, còn chương trình con bạn tự viết nhé
uses crt;
var a:array[1..100]of integer;
i,n,t,t1,t2:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
edn;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t);
readln;
end.